home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / utility / catch110.zip / INSTALLA < prev    next >
Text File  |  1993-10-17  |  2KB  |  106 lines
  1. ; Programma di installazione per l' Installer standard Commodore
  2.  
  3. (set local-help (cat "Scegliendo \"S∞\" tutti i messaggi di CatchDisk saranno"
  4.                      " tradotti in italiano.\nScegliendo \"No\", i messaggi"
  5.                      " saranno in inglese.\nNotate che la vostra lingua di"
  6.                      " sistema deve essere l'italiano, altrimenti CatchDisk"
  7.                      " continuerα ad essere in inglese."))
  8.  
  9. (complete 0)
  10.  
  11. (if (exists "L:WBStart-Handler")
  12.     ((set ver (/ (getversion "L:WBStart-Handler") 65536))
  13.      (set rev (- (getversion "L:WBStart-Handler") (* 65536 ver)))
  14.      (if (< ver 2)
  15.          (if (< rev 4)
  16.              (message (cat "Attenzione: dovete installare WBStart-Handler "
  17.                         "versione 1.4 o successiva per potere utilizzare "
  18.                         "CatchDisk (vedi il file 'Leggimi').")
  19.              )
  20.          )
  21.      )
  22.     )
  23.     (message (cat "Attenzione: dovete installare WBStart-Handler "
  24.                "versione 1.4 o successiva per potere utilizzare "
  25.                "CatchDisk (vedi il file 'Leggimi').")
  26.     )
  27. )
  28.  
  29. (set name
  30.     (askdir
  31.         (prompt "Dove volete installare CatchDisk ?")
  32.         (help @askdir-help)
  33.         (default "SYS:WBStartup")
  34.     )
  35. )
  36.  
  37. (set @default-dest name)
  38.  
  39. (set vernum (/ (getversion) 65536))   ; se version >37: c'Φ localizzazione
  40.  
  41. (if (> vernum 37)
  42.     (set local
  43.         (askbool
  44.             (prompt "Volete installare il file di supporto per la lingua italiana ?")
  45.             (help local-help)
  46.             (choices "S∞" "No")
  47.             (default 1)
  48.         )
  49.     )
  50.     (set local 0)
  51. )
  52.  
  53. (if local
  54.     (if (and (= @user-level 2) (exists "LOCALE:catalogs/italiano"))
  55.         (set sysdest
  56.             (askchoice
  57.                 (prompt "Dove volete installare il file di localizzazione ?")
  58.                 (help @askchoice-help)
  59.                 (choices "nello stesso cassetto di CatchDisk" "in LOCALE:")
  60.                 (default 1)
  61.             )
  62.         )
  63.         (if (= name "SYS:WBStartup")
  64.             (set sysdest 1)
  65.             (set sysdest 0)
  66.         )
  67.     )
  68. )
  69.  
  70. (if (not (exists "LOCALE:catalogs/italiano"))
  71.     (set sysdest 0)
  72. )
  73.  
  74. (complete 50)
  75.  
  76. (copyfiles
  77.     (infos)
  78.     (source "/CatchDisk")
  79.     (dest name)
  80. )
  81.  
  82. (tooltype
  83.     (dest (tackon name "CatchDisk"))
  84.     (noposition)
  85. )
  86.  
  87. (complete 80)
  88.  
  89. (if local
  90.      (if sysdest
  91.         (copyfiles
  92.             (source "/catalogs/italiano/CatchDisk.catalog")
  93.             (dest "LOCALE:catalogs/italiano")
  94.         )
  95.         (
  96.             (makedir (tackon name "catalogs"))
  97.             (copyfiles
  98.                 (source "/catalogs/italiano/CatchDisk.catalog")
  99.                 (dest (tackon name "catalogs/italiano"))
  100.             )
  101.         )
  102.     )                    
  103. )
  104.  
  105. (complete 100)
  106.